home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / utility / v11n04.zip / PSWRD1.WFW < prev    next >
Text File  |  1992-01-27  |  414b  |  23 lines
  1. Sub MAIN
  2. MsgBox "Correct password must be entered to continue", \
  3. "Password Locked"
  4. AppMinimize
  5. Repeat:
  6. Input "Enter password", a$
  7. If a$ = "password" Then
  8.      Goto done
  9.        Else
  10.       Beep
  11.       pw = pw + 1
  12.       Goto repeat
  13. End If
  14. Goto repeat
  15. done:
  16. If pw > 0 Then
  17.        MsgBox "Incorrect password entered" \
  18.        + Str$(pw) + " times", "Password Unlocked"
  19. End If
  20. AppMaximize
  21. End Sub
  22.  
  23.